assume cs:codesg,ds:datasg

datasg segment 
  db 'BaSIC$',0
  db 'iNForMaTiOn$',0
datasg ends

codesg segment
start: mov ds,ax
       mov bx,0
       mov cx,5

       s:mov al,[bx]
         and al,11011111B
         mov [bx],al
         inc bx
         loop s
    
       mov bx,5
       mov cx,11

       s0:mov al,[bx]
         and al,00100000B
         mov [bx],al
         inc bx
         loop s0
       
       mov ax,4C00H
       int 21H

codesg ends
end start
